home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)za.d64 / plot'char.proc < prev    next >
Text File  |  2007-03-01  |  869b  |  40 lines
  1. 9000 //
  2. 9010 PROC PLOT'CHAR(ROW,COL,C$) CLOSED
  3. 9020 START:=2024
  4. 9030 IF PEEK(START)<>160 THEN
  5. 9040 CONVERT'SETUP
  6. 9050 ENDIF 
  7. 9060 CONVERT(C$)
  8. 9070 PLOTTEXT (COL-1)*8,192-(ROW-1)*8,C$
  9. 9080 ENDPROC PLOT'CHAR
  10. 9090 //
  11. 9100 PROC CONVERT(REF S$) 
  12. 9110 IF S$<>"" THEN SYS 2024
  13. 9120 ENDPROC CONVERT
  14. 9130 //
  15. 9140 PROC CONVERT'SETUP 
  16. 9150 POKE 29260,216 // LOWER'CASE
  17. 9160 START:=2024 // RELOCATABLE CODE
  18. 9170 POKE START,160
  19. 9180 POKE START+1,3
  20. 9190 POKE START+2,177
  21. 9200 POKE START+3,51
  22. 9210 POKE START+4,170
  23. 9220 POKE START+5,200
  24. 9230 POKE START+6,177
  25. 9240 POKE START+7,51
  26. 9250 POKE START+8,201
  27. 9260 POKE START+9,192
  28. 9270 POKE START+10,144
  29. 9280 POKE START+11,4
  30. 9290 POKE START+12,233
  31. 9300 POKE START+13,96
  32. 9310 POKE START+14,145
  33. 9320 POKE START+15,51
  34. 9330 POKE START+16,202
  35. 9340 POKE START+17,208
  36. 9350 POKE START+18,242
  37. 9360 POKE START+19,96
  38. 9370 ENDPROC CONVERT'SETUP
  39. 9380 //
  40.